0 REM"CBM DOS C0-DF***"
1 REM"CBM DOS+PP->INPU"
2 REM"SUDO-DOS A0-BF 3"
3 REM"SUDO-DOS E0-FF 3"
4 REM"SUDO3 DOS 24P   "
5 REM"SD3 DOS 28P00-7F"
6 REM"SD3 DOS 28P80-FF"
7 REM"0123456789ABCDEF"
1000 REM A=ACCU X=X Y=Y
1010 POKE52,32:POKE56,32:CLR
1020 POKE157,128
1030 PRINT"[147]
1040 [153]"FUER WELCHEN FLOPPY TYP (1/2)
1050 PRINT"1  1541   ALT   24PIN ROM
1060 [153]"2  1541/2 /C    28PIN ROM
1070 GETA$:IFA$<>"1"ANDA$<>"2"THEN1070
1080 IFA$="2"THEN1180
1090 POKE198,0:INPUT"LEGEN SIE DIE QUELLDISK EIN U. DRUECKEN SIE RETURN";A$
1100 Y=32:LN=31:HN=8:GOSUB1350
1110 Y=64:LN=31:HN=8:GOSUB1350
1120 Y=96:LN=55:HN=8:GOSUB1350
1130 Y=128:LN=79:HN=8:GOSUB1350
1140 LN=103
1150 Y=160
1160 GOSUB1470
1170 END:REM----------------------------
1180 POKE198,0:INPUT"LEGEN SIE DIE QUELLDISK EIN U. DRUECKEN SIE RETURN";A$
1190 Y=32:LN=7:HN=8:GOSUB1350
1200 Y=64:LN=31:HN=8:GOSUB1350
1210 Y=96:LN=7:HN=8:GOSUB1350
1220 Y=128:LN=31:HN=8:GOSUB1350
1230 LN=127
1240 Y=160
1250 GOSUB1470:REM 00-7F
1260 POKE198,0:INPUT"LEGEN SIE DIE QUELLDISK EIN U. DRUECKEN SIE RETURN";A$
1270 Y=32:LN=7:HN=8:GOSUB1350
1280 Y=64:LN=55:HN=8:GOSUB1350
1290 Y=96:LN=7:HN=8:GOSUB1350
1300 Y=128:LN=79:HN=8:GOSUB1350
1310 LN=151
1320 Y=160
1330 GOSUB1470:REM 80-FF
1340 END:REM----------------------------
1350 REM LOAD -------------------------
1360 POKE780,0:REM =LOAD
1370 POKE781,0:REM START HIGH
1380 POKE782,Y:REM START LOW
1390 POKE186,8:REM GERAETEADRESSE
1400 POKE185,0:REM ABSOLUT LADEN
1410 POKE183,16:REM LAENGE D.NAMENS
1420 POKE187,LN:REM LOW ANFANG NAME
1430 POKE188,HN:REM HIGH ANFANG NAME
1440 SYS65493:REM LOAD
1450 OPEN15,8,15:INPUT#15,A,B$,C,D:CLOSE15:PRINT:PRINTA;B$;C;D:IFA>0THENEND
1460 RETURN
1470 PRINT
1480 POKE198,0:INPUT"LEGEN SIE DIE ZIELDISK EIN UND DRUECKEN SIE RETURN";A$
1490 OPEN15,8,15,"I":CLOSE15
1500 HN=8
1510 POKE780,252:REM ZEIGER AUF START
1520 POKE781,0:REM LOW ENDE
1530 POKE782,Y:REM HIGH ENDE
1540 POKE252,0  :REM START LOW
1550 POKE253,32 :REM START HIGH
1560 POKE186,8:REM GERAETEADRESSE
1570 POKE183,16:REM LAENGE D.NAMENS
1580 POKE187,LN:REM LOW ANFANG NAME
1590 POKE188,HN:REM HIGH ANFANG NAME
1600 SYS65496:REM SAVE
1610 OPEN15,8,15:INPUT#15,A,B$,C,D:CLOSE15:PRINT:PRINTA;B$;C;D:IFA>0THENEND
1620 RETURN